home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / mac / PC / viewer.exe / viewer.DXR / 00018_Add Score.ls < prev    next >
Encoding:
Text File  |  1996-09-17  |  484 b   |  15 lines
  1. on ScoreDisplay
  2.   set Temp to 0
  3.   set Temp to Temp + integer(field "SalmonFishing")
  4.   set Temp to Temp + integer(field "PatternMatching")
  5.   set Temp to Temp + integer(field "ChromosomePairing")
  6.   set Temp to Temp + integer(field "MemoryTesting")
  7.   set Temp to Temp + integer(field "MapAnalysing")
  8.   set Temp to Temp + integer(field "AtomReacting")
  9.   set Temp to Temp + integer(field "PopQuizScore")
  10.   if Temp < 0 then
  11.     set Temp to 0
  12.   end if
  13.   put Temp into field "FinalScore"
  14. end
  15.